COMMENT ⊗   VALID 00003 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	require	"<>||"	delimiters
 00003 00003	
 00005 ENDMK
⊗;
require	"<>||"	delimiters;
define
	∂=<datum>,
	↓=<'12&'15>,
	TAB=<'11>,
	eom=<&↓)>,
	type=<outstr(>,
	∀=<foreach>,
	α=<comment>,
	β=<COMMENT;>,
	eos=<&" ")>,
	⊂=<begin>,
	⊃=<end>,
	GLB=<GLOBAL>,
	S1U=<STEP 1 UNTIL>,
	THRU=<STEP 1 UNTIL>,
	$=<GLOBAL>,


	SELECT=<FOREACH>,
	WINS=<DO DONE>,
	ASSIGN=<BEGIN
		ERRFLAG←0;
		FOREACH>,
	HOLDS=<DO BEGIN ERRFLAG←1; DONE; END;
		IF ERRFLAG≠1
		THEN USERERR(ERRFLAG,2,"ASSIGN ERROR - CNT=");
		END>,
	DPYSVS(X,Y,STR)=<BEGIN AIVECT(X-10,Y-10);DPYSST(STR);END>,
	BRIGHT=<6>,DIM=<3>,
	#X(Z)=<∂(Z)[6]>,#Y(Z)=<∂(Z)[7]>,
	G#X(Z)=<GLB ∂(Z)[6]>,G#Y(Z)=<GLB ∂(Z)[7]>,
	ADJ(A,B)=<((ENDPT⊗A ∩ ENDPT⊗B) ≠ PHI)>,
	GADJ(A,B)=<(($ ENDPT⊗A ∩ $ ENDPT⊗B) ≠ PHI)>,

	TEST41=<IF LENGTH(PMODS)=1
		THEN BEGIN
			P←COP(PMODS);
			GO TO LOCATE;
			END>,
	EP=<EXTERNAL PROCEDURE>,
	ERP=<EXTERNAL REAL PROCEDURE>,
	EBP=<EXTERNAL BOOLEAN PROCEDURE>,
	EIP=<EXTERNAL ITEMVAR PROCEDURE>,
	ESP=<EXTERNAL STRING PROCEDURE>,

	SUBR=<SIMPLE PROCEDURE>,
	ISUBR=<INTERNAL SIMPLE PROCEDURE>,
	
	ESUBR=<EXTERNAL SIMPLE PROCEDURE>,
	ESSUBR=<EXTERNAL STRING SIMPLE PROCEDURE>;